home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abb.d64 / trains (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  134 lines
  1. 1 PRINT"[147]":POKE53280,11:POKE53281,11
  2. 3 AB=RND(-TI):AC=INT(RND(1)*8)+1
  3. 4 GOTO11000
  4. 5 GOTO10010
  5. 6 PRINT"[145][145][145] [157][157][157][157][157][157][157][157][157][157][157][157][157]   GET 4 TRAINS IN THE CENTRE"
  6. 7 PRINT"[145]       PRESS SPACE BAR FOR HELP"
  7. 300 A=55475:B=55514:C=55516:D=55594:E=55596:F=55670:G=55672:H=55674:I=55676
  8. 302 J=55678:K=55680:L=55709:M=55721:N=55750:O=55752:P=55754:Q=55756:R=55758
  9. 304 S=55760:T=55834:U=55836:V=55914:W=55916:X=55955
  10. 306 POKEL,0:POKEN,7:POKEX,0:POKEW,7
  11. 308 POKEM,0:POKEK,7:POKEA,0:POKEB,7
  12. 400 GETA$:IFA$=""THEN GOTO400
  13. 414 IFA$="A"THEN GOSUB1000:GOSUB2000
  14. 416 IFA$="B"THEN GOSUB1000:GOSUB3000
  15. 418 IFA$="C"THEN GOSUB1000:GOSUB4000
  16. 420 IFA$="D"THEN GOSUB1000:GOSUB5000
  17. 422 IFA$="E"THEN GOSUB1000:GOSUB6000
  18. 424 IFA$="F"THEN GOSUB1000:GOSUB7000
  19. 426 IFA$="G"THEN GOSUB1000:GOSUB8000
  20. 428 IFA$="H"THEN GOSUB1000:GOSUB9000
  21. 430 IFA$=" "THEN GOTO1
  22. 500 GOTO400
  23. 1000 AA=PEEK(A):BB=PEEK(B):CC=PEEK(C):DD=PEEK(D):EE=PEEK(E):FF=PEEK(F)
  24. 1002 GG=PEEK(G):HH=PEEK(H):II=PEEK(I):JJ=PEEK(J):KK=PEEK(K):LL=PEEK(L)
  25. 1004 MM=PEEK(M):NN=PEEK(N):OO=PEEK(O):PP=PEEK(P):QQ=PEEK(Q):RR=PEEK(R)
  26. 1006 SS=PEEK(S):TT=PEEK(T):UU=PEEK(U):VV=PEEK(V):WW=PEEK(W):XX=PEEK(X)
  27. 1008 RETURN
  28. 2000 IFAC=1THENGOTO2004
  29. 2002 IF(OOAND7)+(PPAND7)+(QQAND7)+(DDAND7)=28THEN GOSUB9500:GOTO400
  30. 2004 POKEA,CC:POKEC,EE:POKEE,II:POKEI,QQ:POKEQ,PP:POKEP,OO:POKEO,NN:POKEN,LL
  31. 2006 POKEL,FF:POKEF,GG:POKEG,HH:POKEH,DD:POKED,BB:POKEB,AA
  32. 2008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
  33. 2100 RETURN
  34. 3000 IFAC=2THENGOTO3004
  35. 3002 IF(EEAND7)+(IIAND7)+(QQAND7)+(GGAND7)=28THEN GOSUB9502:GOTO400
  36. 3004 POKEA,BB:POKEC,AA:POKEE,CC:POKEI,EE:POKEQ,II:POKEP,QQ:POKEO,PP:POKEN,OO
  37. 3006 POKEL,NN:POKEF,LL:POKEG,FF:POKEH,GG:POKED,HH:POKEB,DD
  38. 3008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
  39. 3100 RETURN
  40. 4000 IF AC=3THENGOTO4004
  41. 4002 IF(HHAND7)+(PPAND7)+(DDAND7)+(JJAND7)=28THEN GOSUB9504:GOTO400
  42. 4004 POKEA,CC:POKEC,EE:POKEE,II:POKEI,JJ:POKEJ,KK:POKEK,MM:POKEM,SS:POKES,RR
  43. 4006 POKER,QQ:POKEQ,PP:POKEP,HH:POKEH,DD:POKED,BB:POKEB,AA
  44. 4008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
  45. 4100 RETURN
  46. 5000 IF AC=4THENGOTO5004
  47. 5002 IF(PPAND7)+(QQAND7)+(RRAND7)+(EEAND7)=28THEN GOSUB9506:GOTO400
  48. 5004 POKEA,BB:POKEC,AA:POKEE,CC:POKEI,EE:POKEJ,II:POKEK,JJ:POKEM,KK:POKES,MM
  49. 5006 POKER,SS:POKEQ,RR:POKEP,QQ:POKEH,PP:POKED,HH:POKEB,DD
  50. 5008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
  51. 5100 RETURN
  52. 6000 IF AC=5THENGOTO6004
  53. 6002 IF(HHAND7)+(IIAND7)+(GGAND7)+(TT AND7)=28THEN GOSUB9508:GOTO400
  54. 6004 POKEL,NN:POKEF,LL:POKEG,FF:POKEH,GG:POKEI,HH:POKEQ,II:POKEU,QQ:POKEW,UU
  55. 6006 POKEX,WW:POKEV,XX:POKET,VV:POKEP,TT:POKEO,PP:POKEN,OO
  56. 6008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
  57. 6100 RETURN
  58. 7000 IF AC=6THENGOTO7004
  59. 7002 IF(QQAND7)+(IIAND7)+(UUAND7)+(OOAND7)=28THEN GOSUB9510:GOTO400
  60. 7004 POKEL,FF:POKEF,GG:POKEG,HH:POKEH,II:POKEI,QQ:POKEQ,UU:POKEU,WW:POKEW,XX
  61. 7006 POKEX,VV:POKEV,TT:POKET,PP:POKEP,OO:POKEO,NN:POKEN,LL
  62. 7008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
  63. 7100 RETURN
  64. 8000 IF AC=7THENGOTO8004
  65. 8002 IF(HHAND7)+(PPAND7)+(TT AND7)+(RRAND7)=28THEN GOSUB9512:GOTO400
  66. 8004 POKEX,WW:POKEV,XX:POKET,VV:POKEP,TT:POKEH,PP:POKEI,HH:POKEJ,II:POKEK,JJ
  67. 8006 POKEM,KK:POKES,MM:POKER,SS:POKEQ,RR:POKEU,QQ:POKEW,UU
  68. 8008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
  69. 8100 RETURN
  70. 9000 IF AC=8THENGOTO9004
  71. 9002 IF(HHAND7)+(IIAND7)+(JJAND7)+(UUAND7)=28THEN GOSUB9514:GOTO400
  72. 9004 POKEX,VV:POKEV,TT:POKET,PP:POKEP,HH:POKEH,II:POKEI,JJ:POKEJ,KK:POKEK,MM
  73. 9006 POKEM,SS:POKES,RR:POKER,QQ:POKEQ,UU:POKEU,WW:POKEW,XX
  74. 9008 GOSUB1000:IF(HHAND7)+(IIAND7)+(PPAND7)+(QQAND7)=28THENPRINT"[158]SUCCESS"
  75. 9100 RETURN
  76. 9500 POKED,0:POKEG,7:RETURN
  77. 9502 POKEG,0:POKED,7:RETURN
  78. 9504 POKEJ,0:POKEE,7:RETURN
  79. 9506 POKEE,0:POKEJ,7:RETURN
  80. 9508 POKET,0:POKEO,7:RETURN
  81. 9510 POKEO,0:POKET,7:RETURN
  82. 9512 POKER,0:POKEU,7:RETURN
  83. 9514 POKEU,0:POKER,7:RETURN
  84. 9550 AC=INT(RND(1)*8)+1
  85. 9600 RETURN
  86. 10010 PRINT"                  [144] [146]  [146]    ";
  87. 10020 PRINT"                         ";
  88. 10030 PRINT"                         ";
  89. 10040 PRINT"                     B  [146] ";
  90. 10050 PRINT" [146] C                      ";
  91. 10060 PRINT"           b  [158] [146]  [144]b       ";
  92. 10070 PRINT"                         ";
  93. 10080 PRINT" b  [146]  [146] b                 ";
  94. 10090 PRINT"                b     b  ";
  95. 10100 PRINT"                         ";
  96. 10110 PRINT"  A```[189]  [146]  [146] [173]```D        ";
  97. 10120 PRINT"                      [154][176]``";
  98. 10130 PRINT"`[174]                    [144] [146]  ";
  99. 10140 PRINT"[146]  [146]  [146]  [146]  [146]  [146]  [154][146][194][144] [146]  [154][146][194][144] [146]  [146]  [146]  [146] ";
  100. 10150 PRINT" [146]  [146]  [146]  [146]                [158] [146] ";
  101. 10160 PRINT"  [154]b   b   [158] [146]              ";
  102. 10170 PRINT"  [144] [146]  [146]  [146]  [146]  [146]  [146]  [146]  [154][146]b[144] [146]  [154][146]b[144] [146]  ";
  103. 10180 PRINT"[146]  [146]  [146]  [146]  [146]  [146]  [146]             ";
  104. 10190 PRINT"       [154][173]```[189]             ";
  105. 10200 PRINT"                 [144]E```[174]  [146] ";
  106. 10210 PRINT" [146] [176]```H                  ";
  107. 10220 PRINT"           b     b       ";
  108. 10230 PRINT"                         ";
  109. 10240 PRINT" b  [146]  [146] b                 ";
  110. 10250 PRINT"                b  [158] [146]  [144]b  ";
  111. 10260 PRINT"                         ";
  112. 10270 PRINT"      F  [146]  [146] G            ";
  113. 10280 PRINT" [160]                       ";
  114. 10290 PRINT"                         ";
  115. 10300 PRINT"              [146]  [146]         ";
  116. 10310 PRINT"                         ";
  117. 10320 PRINT"                         ";
  118. 10330 PRINT"                   [146]  [146]    ";
  119. 10340 PRINT"                         ";
  120. 10350 PRINT"                         ";
  121. 10360 PRINT"                         ";
  122. 10370 PRINT"                         ";
  123. 10390 PRINT"          ";
  124. 10400 GOTO6
  125. 11000 PRINT:PRINT"[158] TRY TO GET 4 TRAINS (YELLOW SQUARES)"
  126. 11002 PRINT"INTO THE INTERSECTION BY PRESSING A-H"
  127. 11004 PRINT:PRINT" THERE ARE 8 WAYS TO DO IT BUT THE"
  128. 11006 PRINT"  COMPUTER WILL NOW ALLOW ONLY #";AC
  129. 11008 PRINT:PRINT" EACH GAME HAS A DIFFERENT SOLUTION"
  130. 11010 PRINT"    DIFFICULT BUT NOT IMPOSSIBLE"
  131. 11012 PRINT:PRINT"      PRESS SPACE BAR TO START"
  132. 11020 GETB$:IFB$=""THEN GOTO11020
  133. 11022 IFB$=" "THEN PRINT"[147]":GOTO 5
  134.